Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue59/Arch/Extended Sample/UnitFormMain.dfm/UnitFormMain.txt

Text File | 2000-05-29 | 2.8 KB | 129 lines

inherited FormMain: TFormMain
  Left = 471
  Top = 278
  AutoSize = True
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Customer Orders'
  ClientHeight = 48
  ClientWidth = 462
  Menu = MainMenu
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBarMain: TToolBar [0]
    Left = 0
    Top = 0
    Width = 462
    Height = 48
    AutoSize = True
    BorderWidth = 2
    ButtonHeight = 36
    ButtonWidth = 53
    Caption = 'ToolBarMain'
    Images = ImageListBase
    ParentShowHint = False
    ShowCaptions = True
    ShowHint = True
    TabOrder = 0
    object ToolButton5: TToolButton
      Left = 0
      Top = 2
      Action = ActionSaveAll
    end
    object ToolButton1: TToolButton
      Left = 53
      Top = 2
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object ToolButton2: TToolButton
      Left = 61
      Top = 2
      Action = ActionFindOrders
    end
    object ToolButton3: TToolButton
      Left = 114
      Top = 2
      Action = ActionFindCustomer
    end
    object ToolButton4: TToolButton
      Left = 167
      Top = 2
      Action = ActionFindEmployee
    end
  end
  object ActionList: TActionList [1]
    Images = ImageListBase
    Left = 338
    Top = 65530
    object ActionTerminate: TAction
      Category = 'File'
      Caption = 'E&xit'
      Hint = 'Exit'
      OnExecute = ActionTerminateExecute
    end
    object ActionSaveAll: TAction
      Category = 'File'
      Caption = 'Save All'
      Hint = 'Sava all'
      ImageIndex = 5
      OnExecute = ActionSaveAllExecute
      OnUpdate = ActionSaveAllUpdate
    end
    object ActionFindOrders: TAction
      Category = 'Find'
      Caption = 'Orders'
      ImageIndex = 2
      OnExecute = ActionFindOrdersExecute
    end
    object ActionFindCustomer: TAction
      Category = 'Find'
      Caption = 'Customer'
      ImageIndex = 2
      OnExecute = ActionFindCustomerExecute
    end
    object ActionFindEmployee: TAction
      Category = 'Find'
      Caption = 'Employee'
      ImageIndex = 2
      OnExecute = ActionFindEmployeeExecute
    end
  end
  object MainMenu: TMainMenu [2]
    Images = ImageListBase
    Left = 374
    Top = 65526
    object File1: TMenuItem
      Caption = '&File'
      object SaveAll1: TMenuItem
        Action = ActionSaveAll
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Action = ActionTerminate
      end
    end
    object Find1: TMenuItem
      Caption = 'F&ind'
      object Orders1: TMenuItem
        Action = ActionFindOrders
      end
      object Customer1: TMenuItem
        Action = ActionFindCustomer
      end
      object Employee1: TMenuItem
        Action = ActionFindEmployee
      end
    end
  end
  inherited ImageListBase: TImageList
    Left = 232
    Top = 4
  end
end